﻿Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fs As New FileStream(My.Computer.FileSystem.CurrentDirectory & "/test.exe", FileMode.Create, FileAccess.Write) ' test.exe wird im aktuellen Ordner unter dem namen "test.exe" geschrieben werden
        Dim wr As New BinaryWriter(fs)
        wr.Write(My.Resources.test) ' test.exe wird geschrieben

        wr.Close()
        fs.Close()
    End Sub
End Class
